www.gusucode.com > Neutrosophic logic toolbox Package_ Neutrosophic Matrices > Neutrosophic logic toolbox Package_ Neutrosophic Matrices/@nm/getnonim.m

    function A1=getnonm(A)
% function A1=getnonim(A)
% Return new object A1, constructed as nm,
% but constists with only elememts where the conditions for neutrosophic
% matrix is not satisfied -     Am(i,j)+An(i,j)>1 
% and zeros in all other places. 
% See also checkim.m  nm.m
% 
%In the Name of ALLAH
% neutrosphic logic toolbox for computing single valued neutrosophic Matrices 
% Copyright (C) 2015-2019 Broumi said 
%for for details see the refrence:  
%Said Broumi, Le Hoang Son, Assia Bakali, Mohamed Talea, Florentin Smarandache,
%Ganeshsree Selvachandran, Computing Operational Matrices in Neutrosophic Environments:
%A Matlab Toolbox,Neutrosophic Sets and Systems, 18,2017,pp.58-66.
% neutrosphic logic toolbox for computing single valued neutrosophic Matrice comes 
% This is free software, and you are welcome to redistribut;see license.txt for details.

ij=size(A);
for i=1:ij(1)
    for j=1:ij(2)
        if A.m(i,j)+A.i(i,j)+A.n(i,j)>1
            A1.m(i,j)=A.m(i,j);
            A1.i(i,j)=A.i(i,j);
			A1.n(i,j)=A.n(i,j);
			
        else
            A1.m(i,j)=0;
            A1.i(i,j)=0;
			A1.n(i,j)=0;
        end
    end
end
A1=nm(A1.m,A1.i,A1.n);